home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 52
/
Amiga Format AFCD52 (Issue 136, May 2000).iso
/
-in_the_mag-
/
banging_the_metal
/
qdos
/
qdos4amiga3.lha
/
POKE_DIGITS_bas
< prev
next >
Wrap
Text File
|
1998-02-12
|
1KB
|
44 lines
100 REMark Amiga Qdos emulator PRINT patch
110 REMark For Amiga Qdos 3.20 only
120 REMark Hacked by S N Goodwin 14-09-92
130 REMark Modified by M J Swift 14-10-92
140 REMark Tweaked by S N Goodwin 21-11-92
150 REMark Altered by M J Swift 06-03-93
160 :
170 REMark Allows the 8 digit Qdos FP
180 REMark output routine to generate
190 REMark 6,7 or 8 significant digits in
200 REMark BASIC, QLIB etc. Permits
210 REMark accurate editing of BASIC
220 REMark constants up to 99999999
230 REMark with no need to add quotes.
240 :
250 REMark * You cannot use this program
260 REMark to give 9 or significant
270 REMark digits.
280 :
290 REMark * Uses PDTK toolkit keywords
300 REMark FLOAT$, INTEGER%
310 :
320 CLS
330 PRINT "ASCII 12345678","1234567 ","25.3-25.2"
340 GIMME 6 : PRINT "6 digits ";"12345678"+0,"1234567"+0,25.3-25.2
350 GIMME 7 : PRINT "7 digits ";"12345678"+0,"1234567"+0;" ",25.3-25.2
360 GIMME 8 : PRINT "8 digits ";"12345678"+0,"1234567"+0;" ",25.3-25.2
370 STOP
380 :
1000 DEFine PROCedure GIMME(n)
1010 LOCal a$(6),e,m
1020 IF n<6 OR n>8:PRINT#0;n!"digits not allowed.":STOP
1030 POKE 16133,n-1
1040 a$=FLOAT$(10^(n+1))
1050 e=STRING%(a$(1 TO 2))
1060 m=STRING%(a$(3 TO 4))+((STRING%(a$(5 TO 6)))<>0)
1070 POKE_W 16156,e:POKE_W 16158,m
1080 a$=FLOAT$(10^n)
1090 e=STRING%(a$(1 TO 2))
1100 m=STRING%(a$(3 TO 4))+((STRING%(a$(5 TO 6)))<>0)
1110 POKE_W 16176,e:POKE_W 16178,m
1120 POKE_L 16260,10^n
1130 END DEFine GIMME